1 GOTO1000
10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
15 PRINT"[147]                                        [146]";
20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
25 PRINT"                                        [146]";
30 PRINT"                                        [146]";
35 PRINT"               [213]NIT [196]-14                [146]";
40 PRINT"                                        [146][159]":GOSUB300
45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:15
50 GOSUB700
55 GOSUB 600
60 GOTO1000
200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
205 PRINT"   MAMMOTH        ELECT    REPTILE
210 [153]"   NOMINATE       BALLOT   EXTINCT
215 PRINT"   PREHISTORIC    SWAMP    POLLS
220 [153]"   DINOSAUR       WALRUS   CANIDIATE
225 PRINT"   PLATFORM       MANATEE  MAMMAL
230 [153]"   ORGANIZATION   VOTING   PORPOISE
232 PRINT"   POLITICAL      REGISTER
235 [142]
240 [141]400
245 [153]"LIST* (null)HAT WORD MATCHES THIS CLUE?"
250 [141]401:[141]560
255 [142]
270 [153]"               LEN(null)(null)(null)VALLEN(null)!                 WAIT":[141]500:[142]
280 [143] IF X=1THENGOSUB290
282 [153]"DEF            (null)HOOPS!  (null)O!                WAIT":X[178]X[170]1:[141]530:[141]402
284 [153]"ONON            (null)RY AGAIN                   PRINT":[141]402:[141]560
286 [153]"ONON                                        ONON"
288 [153]"ONON                                        ONON":[142]
290 [153]"DEFONON>> (null)HE CORRECT WORD IS........       ":[141]530
295 [153]"                                    ONPRINT":[142]
300 [141]402:[141]560
305 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSETO CONTINUE       WAITLIST"
310 [161]R$:[139]R$[179][177][199](32)[167]310
315 [142]
400 [129]T[178]1[164] 500:[130]:[142]
401 [129]T[178]1[164] 1000:[130]:[142]
402 [129]T[178]1[164] 2000:[130]:[142]
403 [129]T[178]1[164] 3000:[130]:[142]
404 [129]T[178]1[164] 4000:[130]:[142]
405 [129]T[178]1[164] 5000:[130]:[142]
500 [143] <YES> SOUND
505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
525 [151]54296,0:[142]
530 [143] <NO> SOUND
535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP> SOUND
565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
570 [151]54296,8:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
585 [151]54296,0:[142]
600 [153]"LOADPRINT     (null)HERE ARE TEN QUESTIONS":[141]401
610 [153]"     (null)OUR PERFORMANCE WILL BE SCORED.":[141]401
620 [141]300
630 [153]"LOAD AND AWAY WE GO .........":[141]402:[141]500:[141]401
640 [142]
700 [153]"OPENLOAD               CHR$AME (null)LAN                WAIT
705 PRINT"     [217]OUR TASK IS TO UNSCRAMBLE THE
710 [153]"     MYSTERY WORD.
718 PRINT""
755 GOSUB402:GOSUB300
760 RETURN
1000 REM # 1
1005 GOSUB200:GOSUB240:X=0
1010 PRINT"[153]  .. SIGN UP TO VOTE      [158]"
1015 INPUT A$
1020 IFA$="REGISTER"THEN GOSUB270:GOSUB402:GOTO1035
1025 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1035
1030 Z=Z+1:GOSUB280:GOTO1015
1035 PRINT"               REGISTER"
1040 GOSUB300
1049 :
1050 REM # 2
1055 GOSUB200:GOSUB240:X=0
1060 PRINT"[153]  .. SELECT BY VOTING  [158]"
1065 INPUT A$
1070 IFA$="ELECT"THEN GOSUB270:GOSUB402:GOTO1085
1075 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1085
1080 Z=Z+1:GOSUB280:GOTO1065
1085 PRINT"                ELECT   "
1090 GOSUB300
1100 REM # 3
1105 GOSUB200:GOSUB240:X=0
1110 PRINT"[153]  .. A PERSON RUNNING FOR OFFICE [158]"
1115 INPUT A$
1120 IFA$="CANDIDATE"THEN GOSUB270:GOSUB402:GOTO1135
1125 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1135
1130 Z=Z+1:GOSUB280:GOTO1115
1135 PRINT"               CANDIDATE "
1140 GOSUB300
1149 :
1150 REM # 4
1155 GOSUB200:GOSUB240:X=0
1160 PRINT"[153]  ... PREDICT HOW PEOPLE WILL VOTE [158]"
1165 INPUT A$
1170 IFA$="POLLS"THEN GOSUB270:GOSUB402:GOTO1185
1175 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1185
1180 Z=Z+1:GOSUB280:GOTO1165
1185 PRINT"                 POLLS     "
1190 GOSUB300
1200 REM # 5
1205 GOSUB200:GOSUB240:X=0
1210 PRINT"[153]  ... NAME A PERSON TO RUN FOR OFFICE [158]"
1215 INPUT A$
1220 IFA$="NOMINATE"THEN GOSUB270:GOSUB402:GOTO1235
1225 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1235
1230 Z=Z+1:GOSUB280:GOTO1215
1235 PRINT"              NOMINATE  "
1240 GOSUB300
1249 :
1250 REM # 6
1255 GOSUB200:GOSUB240:X=0
1260 PRINT"[153]  ... RELATED TO GOVERNMENT  [158]"
1265 INPUT A$
1270 IFA$="POLITICAL"THEN GOSUB270:GOSUB402:GOTO1285
1275 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1285
1280 Z=Z+1:GOSUB280:GOTO1265
1285 PRINT"              POLITICAL  "
1290 GOSUB300
1300 REM # 7
1305 GOSUB200:GOSUB240:X=0
1310 PRINT"[153]   ... THE VOTING FORM    [158]"
1315 INPUT A$
1320 IFA$="BALLOT"THEN GOSUB270:GOSUB402:GOTO1335
1325 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1335
1330 Z=Z+1:GOSUB280:GOTO1315
1335 PRINT"                BALLOT       "
1340 GOSUB300
1349 :
1350 REM # 8
1355 GOSUB200:GOSUB240:X=0
1360 PRINT"[153]  ... CASTING A VOTE     [158]"
1365 INPUT A$
1370 IFA$="VOTING"THEN GOSUB270:GOSUB402:GOTO1385
1375 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1385
1380 Z=Z+1:GOSUB280:GOTO1365
1385 PRINT"               VOTING  "
1390 GOSUB300
1400 REM # 9
1405 GOSUB200:GOSUB240:X=0
1410 PRINT"[153]  ... POLICIES OF A CANDIDATE      [158]"
1415 INPUT A$
1420 IFA$="PLATFORM"THEN GOSUB270:GOSUB402:GOTO1435
1425 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1435
1430 Z=Z+1:GOSUB280:GOTO1415
1435 PRINT"               PLATFORM  "
1440 GOSUB300
1449 :
1450 REM # 10
1455 GOSUB200:GOSUB240:X=0
1460 PRINT"[153]   ... GROUP OF PEOPLE WORKING TOGETHER[158]"
1465 INPUT A$
1470 IFA$="ORGANIZATION"THEN GOSUB270:GOSUB402:GOTO1485
1475 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1485
1480 Z=Z+1:GOSUB280:GOTO1465
1485 PRINT"            ORGANIZATION  "
1490 GOSUB300
1600 REM SCORE BOARD
1605 K=Z-W:C=10-Z
1610 PRINT"[147][200]ERE IS YOUR SCORE FOR [213]NIT [196]-14:"
1615 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [153][198][201][210][211][212] [212][210][217]  "C
1620 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [158][211][197][195][207][206][196] [212][210][217] "K
1625 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212][160][207][206][160][150][212][200][201][210][196] [212][210][217]  "W
1630 PRINT"":GOSUB403:GOSUB300
1650 :
1655 PRINT"[147][158][217]OU NOW HAVE A CHOICE:
1660 [153]"(null)RESS  R WAIT TO REPEAT THIS UNIT
1665 PRINT"[208]RESS  M [146] TO RETURN TO THE DISK MENU
1670 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[137]1670
1675 [139]R$[178]"R"[167][140]:[137]10
1680 [153]"LOAD(null)ETURNING TO THE DISK (null)VAL(null)(null)
1685 LOAD"MENU",8
1690 RUN
1695 END
1700 REM DESIGNED BY BILL CUMBERLAND 92:01:13
1710 REM FOR MY GRANDSON, JAMIE.
1720 REM SPELLING D - MODERN CURRICULUM PRESS